home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / -archivi / -recent2 / amicad_2.00.lha / AmiCAD / ARexx / SearchLib.AmiCAD < prev    next >
Text File  |  1999-01-15  |  824b  |  28 lines
  1. /* Recherche d'un composant dans une bibliothèque */
  2. /* $VER: 1.00 (© R.Florac, 23 Novembre 1998) */
  3.  
  4. options results     /* indispensable pour récupérer le résultat des macros */
  5.  
  6. signal on error     /* pour l'interception des erreurs */
  7. signal on syntax
  8.  
  9. 'REQTEXT("Quelle est le nom du"+CHR(10)+"composant recherché?"+CHR(10)+"Vous pouvez utiliser les"+CHR(10)+"jokers AmigaDOS pour"+CHR(10)+"spécifier ce nom."+CHR(10)+"Exemples: TRANS#? 74#?244","")'
  10. nom=result
  11.  
  12. if nom="" then exit
  13.  
  14. address command
  15. 'Travail:AmiCAD/SearchLib >CON:100/100/600/200/SearchLib/CLOSE/WAIT/SCREENAmiCAD 'nom' QUIET ALL'
  16.  
  17. exit
  18.  
  19. /* Traitement des erreurs, interruption du programme */
  20. syntax:
  21. erreur=RC
  22. 'MESSAGE("Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  23. exit
  24.  
  25. error:
  26. 'MESSAGE("Erreur en ligne 'SIGL'")'
  27. exit
  28.